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Thiis module may be used in the follov^ng ways: 
1. 



2. 

,3. 



It. may be used, vdth teacher explanations, and 
examples, for an entire -class vat once. 

It may be 'used by individuals or ^mall groups 
of students. 

It may be used by individual students in real 
carw-buying situations (or motorcycle-buying). 

Individual students who have completed the 
unit can Assist other students later.' 



MATERIALS ^ 
Contained in this iflodule: • 

1. Btplanatory reading material for the students. 

- 2. Workshpets foi* cai^buying, car insurance and 
motorcycle insurance. 

3. Texts of the computer programs CARR, INSTABLE, 
AMDRTimN, and INSCYCLE, which are necessary . 
for completion of the module, 

if. A short sheet of sample car prices and insul^- 
ance numbers, taken from the December,' I973 
N^A.D.Ao Official Used Car Guide , 

Teacher must be able to provide: 

Computer access, ' 

Current information on interest rate for de- 
monstration purposes, ^ 

A recent copy of the N. A. DqAq Official Used 
Car Guide (optional, tut highly desirable ) . 
Car dealers and lending institutions are some- 
times willing to give classes old' copies. 



1. 
2, 



Students vail provide on their own: 

1. Current prices and trad^in values for 
individual cars (obtainable from various 
sources: actually talking with a car de- 
aler, the daily -newspapers, or the N.A.D.A. 
guide). • - 



2. 



Informatipn vQn interest rates and terms for-. 
specific cars and credit sources (optional;" 
obtainable by talking to the various sources) 



TIME SCHEDULE 



as 



During testing of this module, 'it wa5 found to take 
on an average two fifty-minute class periods per 
student (one period for preparation and infor- 
mation-gathering, and one period spent at a com- 
puter terminal). 




OBJECTIVES 

The student will learn the difference between 
the quoted purchase price of a car and'^ts 
actual cost Under various credit and financ- 
ing arrangements. ' 

The student will learn the effect of a trade- 
in on the purchase price of a new car and 
on the sales tax charged. ' ^ 

The student will learn the meaning of mort- 
gaip insurance, and the kinds available and 
thOT.r cost. 
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_ The student vdll learn the different kinds of 
' insurance available for a*car, and'*" which kinds 
are mandatory. 

The student will l^ai-n the cost or automobile 
insurance, and what detfennines this cost. The 
principal factors he will learn are: 

a. The purchaser's driving record; and 

b. The safety rating of the car,' as indicated 
by the insurance number in the N,"A.D.Ao 
Dealer's Guide . . 

The student wHo is interested in owning a motor- 
cycle will learn the jsost of financing a pui^ 
chase, and the cost of motor cycle insurance. 




For successful teaching of the module, it is 
recommended that the teacher go through the 
module himself first, using his own dlrta and 
comparing the results with his actual situation 
if possible. 

■ The module provides brief summary information 
on such concepts as add-on rates, annual per^ 
centage rates, mortgage insurance, etc. The 
teacher may desire to devote additional class 
timfe t^ more extensive explanation of these 
concepts. The AM3RTL0AN program demonstrates ' 
the operation of an annual percentage rate. 
The total interest figure in the AMORTLOAN out- 

„.put may be uaeG to demonstrate the conversion 
from AoP.R, to' add-on rate. 
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EVALUATION PROCEIX^E 

Completion of the module is to be regarded as 
an 6iid in itself. For feedback purposes, the 
^teacher may determine the student's success 
in doing the module by examining the worksheet , 
checking the credibility of the computer out- 
put, and checking the answers to those questions 
in the worksheet which involve comparisons, 
and which the student answers after running 
the computer programs. 

A teacher m^y desire to supplement the module 
with a posttest on the conceptual information 
developed in the module: questions on kinds 
■of interest rates, mortgage insurance., kinds 
of insurance coverage, factors determining 
insur^ce rates, etc., along with additional 
quantitative questions comparing rates , and 
payment s , - - 

There are no standard right or wrong answers 
for any pai-t of \hl3 module; the answers will 
vary depending on local taxes and ins\irance 
laws, credit conditions, and so forth. 



OUTLINE 

^ction I - Buying and Financing a Car (Cards i 
Student Worksheets /j' /^a 4f ) 

A/ In this sectioni the student will corrv- 
plete all l^he worksheets preceeding 
the insurance section. ' 

B. Teachiri]^ suggestions 



6 



f ' ' ' ' 

1. As students wiU be providing individual 
data, it vdll probably be found desirable 
to let them v/ork on The module individ- 
ually or in small groups. A period of , 
general class time may be used to explain 
the credit concepts described, and to" 
give instructions on acquiring the ^asic 
data needed, 

2. Securing data vdlQ. be the most difficult 
part of the module. Students are under^ 
standably reluctant to bother a car 
dealer with hypothetical questions. 
Nonetheless, tijis is the most valuable 
way Tor them to get information. ^ Dealers 
will most likely be cooperative if the 
students know exactly what information 
they need, and what qtiestions to ask, 

in advance, so as not to take up too 
much- of the dealer^s time. Other sources 
for car prices are advertisements in the ' 
newspaper, and the n;a.D.A. book. ' Trader- 
in values are available in the N.A.D^A. 
book. As a last resort, som^ sample 
data is provided with the module. 

3. Students- should again be encouraged to 
find credit information on their own - 
from dealers, banks and credit unions. 
Teachers should check with their own 

J- credit unions for sample rates. In 

Denver at the end .of I973, dealers were 
quoting add-on rates between '^^'and lo^j 
banks quoted an add-on rate of. for 
new cars, 6 1/2% for used cars; and 
. credit unions quoted AoP„ir.«s from 9^ 
to l!29b. 

4. If a student is quoted an annual percent- 
.age rate, he njay wish to run the AMORTLOAN 
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program to see what his montTftjt^^MiyJ- ^ 
ment is and what he is paying for. . ' 

If students have successfully gotten their 
own individual data, they should be 
encouraged- to compare^notes with, each 
other, to get a greater appreciation 
' of the credit market. 

Teachers- may desire that students run 
^1 the computer actions pf the mod- 
>ule at. once, ^oing baQk afterwards 
and completing the comparison quest- 
ions in the worksheet. 



Section II 



Insurance (Card # 5 - ^udent 
Worksheet # 8a) 



A. The student "will complete the insurance ' 
^ portion of the worksheet, using computer 
output for his answers. 

- B. Teaching suggestions 

1. Students should continue to work in- 
dividually or in small groups, 

2. The insurance rates in the program 
are taken from the tables of a high- 
risk insurance company. Lower, rates 
are in many cases obtainable. For 
•high school students, however, these 
rates are frequently all too accurate. 
(Rates may be different in states 
other than Colorado; in such a case, 
an experienced programmer may be needed 
to modify the data in the program. ) 

3. Insurance numbers are obtainable only 
from the N.A.D.A. guide. If this guide 
is unobtainable, probable insurance 

^ numbers for a given car can be deduced 
from the sample data provided with 
the module. The important point which 
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is to be communicated is ''that the. insura- 
nce number of a car is a major, factor 
in determining the cost of insurance for 
the car. 

Throughout the computer portions of the 
'module, teachers will find that students 
who have already done the module will 
be very helpful in assisting other stud- 
ents who are starting the module^ 

Students should be advised that computer 
input consists of numbers only - no 
comnas, no percent signs, doUar signs, 
etc. 

Section m - Motorcycle (optional) (Card # 9, 
Student Worksheet # 9a) 

A. The interested student will fin out the 
cajvbuying worksheet for a motorcycle} and 
the motorcycle insurance worksheet, 

B. Teaching suggestions 




2. 



fn,udepts who are interested in the real 
purchase price of a- motorcycle can use 
their data in the GARR program, or, i^ 
they are quoted an annual percentage 
rate, in the AMDRTLOAN program. 

The INSCYCLE program offers two insur- 
ance plans, which can be compared. 
The principal factor determining motor- 
cycle insurance Vates is the size of 
the motorcycle engine, 
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Car Buying 



Card # 1 



CAR BUYING 



The purpoge of this unit is to help you investigate the costs of ' financing a car ^ 
•through three 'different types of lending Institutions: ah auto dealer, a bank, 
and a credit union. You should «Re able to learn interest rates and other 
important information from each of these three- sources. You can use this unit, and, 
the accompanying computer programs, not only in the classroom, but as a personal 
relerence guide if you should purchase a car. 

A credit union is like a club, to borrow money you must be' a member. In many types 
ot employment, membership ■ in a credit union is automatic. So', when you investigate 
tl^e cost of a credit union loan, see if your parents, friends or teachers belong to 
or know anyone who belongs to a credit union. Then, get on the phone and call the 
credit union, a bank, and an auto dealer to obtain the information necessary to 
complete the tables in the worksheets. WJien choosing a bank or an auto dealer, you 
might ^want to call several to see which' one offers you the cheapest rate. If you 
are unable to contact any of the appropriate lending agencies, your teacher will 
have the information necessary to complete the tables. The daily newspaper contains 
advertisements of cars for sale,- with prices and .frequently with interest rates. 

When you- have completed student worksheet ^ 4a (afjber reading t'he explanation),- 
run the computer programs. CARR and INSTABLE and use the information to complete ' 
the rest of the tables. These tables will help you choose the least expensive 
financing for your situation. 
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Card 2 



Tlio dxplanation£3 that follow' should enable you to understand) what you should 
fill In on Stiident Worksheet ^ ^a. This informtion ahoip^.give you Vhat you 
need to know when you are on the phone talking to one oi the three lending 
institutions Involved. Most professional men are glad to help you learn 
(after all, you will sojtieday be their customers) | but you are taking up their time. 
Don't tie them up too long over the phone. When you call an auto dealer you might 
aak to j^peak with their finance man, and when you call a bank you should ask to 
ispeak with a loan officer. These men are the members of j^their respective 
organization^ who will be able to answer your questions best. 

A. What kind of car are you buying? ^ List the name and model of the car you are 
buying, the kim43 oi* accessories you want, and the year of the car. 

D. What* is the"" cash price of your' car? This means What will the "car you wish 

to buy cost, including all the options you want ^ if'yoij pould give ttie dealer the 
monoy rlght^now. It you don^t know the price of your car, you may find out from 
the^ MDA book or from cards if b and 6.* Of course, most peopJ.e havp to finance 
the purchase of their cars. That is what you will be doing in this unit. 

5^- the local oalej t.ax ratp V Whenever you buy anything, you pay a 

c-«;rtain. percent of the price to the governmeht* as a sales tax. (For instance, in 
|>wer. Colorado the sales tax is'*6$^. ) Qn the everyday small' purchases you 
nu'iko, this sniaJl percentage of tax goea- .aiinost unnoticed. But you. are now 
nu'iking a purchase that runs sometimes many thousands of dollars and the sales . . 
tax becomes very significant. The tax itself may come to hundreds of dollars, 
dcfiending on the price of your >par. VThen you talk to a dealer, find out what 
the- current sales tax is in your community. A word of caution: If you shop 
around, trying tp beat the .sales tax rate in your cornmanity, you may end up having to 
pay it anyway. Some communities charge sales tax according to where you live.- • 
. rather than where you make your purchases. Check it out first; otherwfe you 
^nught end up paying twice aq much tax. " 

• l^:. ? trade-in? If ^yes*. then how much will the dealer allow you^? 

W have an old c^ it is worth some amouni money , l^hls old ' car can fee 
vrjod like unoney, and. can be usexl toward the purchase of your new car The 
value a dealer gives your old car 'is called the trade-in value. If you call a 
dealer, ask him if he can give you -a general trade-in value for your old car. 
Remember, he might not be able to , since the value of Jbhe trade-in varies ' 
•greatly because each individual's car has been taken care of in a different 
manner. But if your car is in good shape, and y«u don't want to keep it • 
for a second car, you should probably trade it in. ' 

If you have a trade-in, its value will be subtracted from the price of your new 
rar before the sales tax is figured./ Thus, t^je sales tax will be computed on the 
[•rtce of your new car, mlTiuo the trtide-in value of your old car. If you don't 
' have a trade-in, you'll have to pay n5tore, sales tax. 

Only your dealer allows a trade-in, not a bank a credit union. 
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Card # 3 



^" /"'^ "i^ ^*^ ^ down payment? If 'yes « . then how much? ■ 

Almoflt always, a dealer vdll ask you to put acme o^ your mon^y down. This is 
usuaOy a small amount but you can't biiy the c:ar if you don't have this amount. 
I he amount of the down-payment varies with thei price of the car. If you talk to 
a dealer, ask h.im what size down-paymen^lie wants. Remember, your down payment is 
-connected only with -a dealer; so .cjlon't ask a banker about it. ^n the CAim program, 
you will une the down-payment only As an aid in figuring out the amount, of money 
you will n<¥fed to pay a dealer after, you borrow it from a bank or a credit union. 

f- How maiV months will your loan rkn? The longer you bor^-ow the money you need to 
buy your car the more interest you wiil pay. So, the totel cost of your car will • 
increase. However, the whole purpose of borrowings the money is so you can maice a * 
lot of. sm^ll payments instead of one big one. You are paying for the convenience of 
those smaller monthly payments you can make without taking away from your othe^^needs. 
rhe larger the payment you make, the Tess will be the total a/nount of interest- you-' 
have to pay. . If you finance the loan for a relatively short time, your paymentb-^^-t^^^' 
may be .larger than if you had financed the loan for a longer time, but you will*;^' 
end up paying less overall. ^ '. ^ . v'\ - 

IF YOa ARE TALKING WITH A DEALER OR A BAM, REFER TO G. ' ' • » ' ' 

IF YOa ARE TALKING WITH A CREDIT UNIOI^ REFER TO H. * • \ 

■ ' ■ ' / 

0. What ir. the add-on rate? An adc^on rate is a straight-forwd^-df^ charge based > ' 
on. the annual rate of intel-est and the amount of money you borrdi;^ and the time of the 
loan. According to government regulations you must be told the equivalent annual 
•percentage rate by the lending instif^it-ion. See below for an explanation of how 
the add-on rate correlates with the annual percentage rate.- 



1: W^'^t, ir, the annual perce ntage rate ? The annu^ percentage rate is a percentage 
ligured on the unpaid balance at the end of each month. Credit unions use "an apnual 
percentage rate; if, when you talk to them, they give you a monthly rate, multiply 
it by twelve.. - » i j 

Tho armual percentage rate and thb add-on rate are different expressions of the same' 
1,hing - - the amount of interest you pay. -If you_rnultiply the add-on rate by the 
amount you borrow by the number .of years your loan runs, you will have the total 
amomit of interest. The ^rnual percentage rate, on the other hand, shows how mch- 
in dcluct^ed from what you borrow after eaph payment; out of each payment, first 
-t-hfi interent, according to the A.P.R. , is paid off, and then the *rest of the 
payment in deducted from the amounli^ you borrowed, (if you want to see how 
tins workr,, run the coniputer program called AMORTLOAN. ) Any add-on rate" quoted 
to you amounts to a little more than twice the ^equivalent annual percentage rate.. 
The maximum annual percentage rate allowed by federal law is 
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Car Buying 



. Card // 4 



I. Mprtgage insurance is insurance on the '.payment of your^loan. It comes 
in 'two forms: .Credit Ufe insurcmce and Health and Accident Insurance^ 
Credit -Life guarantee^ th^t, *Lf you die before ,ycLU have made' all your pay- 
ments, the insur^c'e company vdll tuke oven the remainder of the payments; • 
health. and accident mortgage insurance guarantees that your loan willr' , 
be paid if yau are too sick or top. injured to make the payments yourself. ' 
Most dealeru'will insist oit your carrying mortgage insurance in orcier to 
finance the purchase of a car. However, they may not insist' on y^ur having 
both Credit Life and He^jlth and Accident insurance. 
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A. ^ What kind? of car are you buying? 
NAMEt . 

ACCESSORIES J ' ( , 

YEARj 



Student Workgheet # 4a 



ftp 



B. What is the cash price of the car? 



a^ 



C. Do you have a^^ffacje-in? If so, how much will thfe dealer jallow youi 



D. What is the state and local, sales tax rate? ^ 

t ''E. l) How much is your down payment? ^ 

M 2) How much are you borrowing? _ 
K. How *Long will your loan run? 



/ 



BANK 



G. What is' the add-on rate? 
\ 



H. " What ia the annual percentage 
rate? > • • 



DEALER 



CR. UNION 



1,^ What is the cost of 
mortgage insurqpco? 



Credit life only 
\ HealtJj and Accident 
Total 
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Student Worksheet # 4b 



24 MONTH LOAN 



r 



Muur-uu xtiiuo or iuinufiix rercoriuag 
Rat? 


5 






i)Cash Price 






ft 


Intoreat 


~ — ' 


m 




Monthly PaymBnt ^ , 




1 




TOTAL COST ^ 






^ — y 


i^)nash Price 








()o*"»t of 0«(llt TAfp 




\ 




^ .LI n*" i n. > \j 




^ 


^ i 


^ Month! V PAvimfint 








TOTAL COST ^ 


1 1 I II 






3)Ca3h Price 




• 




Coat of Credit Life 








Cost of Health and Accident 
Insurance 








Interest 








Monthly Payment 


• 






aX)TAL COST 
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36 KDNTH LOAN 



Student Worksheet 4c 



Add-on Rate or Annual Percentage 


\ 


• 


• 


I) Gauh Pi'i(|^ 




• • 




Interest 








Mo^nthly Payment ~-> 








'I'OTAL (]OST ^ ^ 










• 




V 


Cunt (jf Credit Life 


\ 










i 




■^Monthly I'ayment r 


\ 






r 


/ 






3)Ca:jh Price 






I 

J, 


. y 

Cost of (Credit y.fe 








« 

' Coat of Health and Accident 
— : Inaurance 






♦ 


Inioreut 






1 — — 


Monthly Paymoni^ 








TOTAL COST 
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Buying , Student Worksheet # 4d 

The following questions will help you compare the different financing methods 
for buying fi car. The information you need to answer these questions may be 
^ound earlier in the unit or by running the CARR program on the computer. 

Any add-on ratb quoted to you by a financing agepcy is actually translated from 
an annual percentage rate; that is why a^ld-on rates sound like they are lower than ' 
annual percentage rote works, run the program AMORTLOAl^ on the con^puter. 

1. Compare the Ijiterest. rates on the twenty-fqur month contract for s^ch lender.- 

BANK DEALER CR. UNION 

Add-on : 
APR^ 




^a. Compare the total amount of interest charged on the 36-n,onth contract with.the 
interest charged on the 2V-month contract. 



BANK DEALjEK ' CR. UNION 



36-month: 

2/|/-month: 



b. How much more do you pay in interest on the 36-month contract, compared With the 
/iVmonth contract? 

BANK • DEALER CR. 'uNION 



jla. Compare the coat of credit life insurance on the 36-month and 2A^month contracts. 

BANK DEALER CR. UNION 

36-monthj ' _______ ' 

2iv^month: 



b. How much more does credit life cQst on the 36-month contract compared with the 
xVmuhth cont;ract7 



BANK \ , DEALBB CK. UNION 
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Gur Buying . ^ . ' Student Worksheet # 4t 

4tt. Compare the coot of accident and health insurance on each of the two cd^tracts. 

c . BANK ' DEALER CR, UNION 

t ' * ' 

j 6-month: 



^/v-month: 



b. How much more does health and accident insurance cost on the 36-month contract 
compared with the 2Vmonth contract? ' ' 

BANK DEALER CR. UNION 



Compare monthly payments. ^ 
a. With no mortgage in^Jiu-anoe (use (l) from Student Workaheety /^^ 4b 'and 4c).- 

BANX . DEALER ^ CR.'lJNION 



\ 



36-month: . " \ 1^/ 



b. With credit, life" only (use (2) from Student Worksheets 4b and 40). 

BANK ' DEAIEE,,. CR. UNION 

2iK-tfionth: '' ^iiw 




• • . " 

c. With credit liJ^ and' health and accident insurance (use (3) from Student Work- 
uheeta/j' 4'b and 4c).' » ' - - . . 

BANK DEALER - - CR. UNION 

'j^nionth: ' ^ ■ . ' 



Compare" the total costs of your car: 
u. With no mortgage insurance (use (l) from Student Worksheets // 4b and 4c). ' * 

BANK ' DtaER CR, UNION 

24^month: , ^ > ■ ^ , 

. , ' ■ • I ' ■ " 

'36-month: 



ERIC 



l8 



tar Buying ' ^ Student Worksheet ff 

# 

b. With credit life only (uao*(2) from Student. Worksheets 4b and 4c). 

BANK DEALBR CR, UNION 

24-tnonth: ^ . 

'36-tnonth: 



c. With criidit life and health and accident insurance (use (3) from Student Work- 
ahetjts ^ 4b and 4c), * 

BANK' DEALER CR, UNION 

2it^month: 



'3<')-rnonth: , 



7. Answer the following questions' for a 24^month contract: 

a. With credit life only, what is the difference between your monthly payment for 
a credit union arid for a bank? 

b. With both credit life and health and accident insurance, what is the difference 
between your monthly payment for a bank and for. a dealer? 



♦ 

Answer the following questions for a 36- month contract: 



a. With no mortgage insurance, what is the difference between the t-otal Qosts of 
your car for a dealer and for a credit union? 



L 



b.*Afith crekit life only, what is the difference between the total Qoats of your 
car for a bank and for a dealer? 



V. In ihe following quest-ions ,. compare the 24- and 36-month contracts: 

a. With credit life only, what is the difference in the monthly payment when you are 
paying a 'dealer? 1 

■ ■ 111 I I 1 / 1 

b. With both credit life and health and accident insurance', what is the difference 
in the total cost of your car when^-j^ are paying a credit tinion? 
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Car Buying 

^ * ^ Card # 5 

nf +J^M f°?;l°''^« i^o^tion is taken from the Mountain States Edition 

: °^ the.N.A.D.A. Official ilH^ri HAr ^.hh., i^cember 1973. - ' 



Av'g. 

Trd-In 



Ino. 

Sym." 



1972 Gremlin-V8-AT 
1550 3 

1970 Javelin-SST-Ve 
1125 4 

1967 Marliiv.AT-PS-6 - 
., 375 Mr 

1971 J-100 m)-6 
1050 " 5 

1966 Jeep-All Series 4WD 
875 

1973 De Ville 
'^3^5 _ 7 

1967 Marathon^6-AT-.5S 
5?0 4 

1973 Vega-V-AT 

1850 ^ 3 

1973 Camaro-AT-PS-V8 

2750 4 

1973 Corvette-VB-4- speed 



Body 

Type Model 

AMERICAN. MOTORS " 

Sed 2D 46-5 

H'dtop ZD 7O79U7 

H'dtop 2D4 6759U7 
JEEP 



Sta Wgn 



1414 



Sta Wgn S V8 

ca'dillac 



Ope. 



D47 
CHECKER 



AB75 fy 
1971 MaliWV8 

1600 4 ' 

1971 CobraP-V8 ■ 
1550* 4 

1971 Muntang-AT-PS-V8 

' 162^ 4 

1970 f'alcon-6-AT 
875 .3 



Sta Wgn A12-W 
CHEVROLET . 

Cipe N'back Vll 

H'dtop. LT S87 

Con 2 Tope Z67 

H'dtop 2D 13637 « 
FORD 

H'dtop Spt Rpof 38 
Con 03 



Sed 4D 11 

INTEI^NATIONAL 
1966 Trayelall Cust-^ Cyl.-All Series 
^600' Station Wgn 

^ PONTIAC 
1971 C7rO-Vft-242 

5 , Con 24267 



Av'g. 

' Loan . 



< Av'g. 

Retai,! 



1675 



1400 


2025 


1025 


1575 


350 


700- 


1850 *• 


2650 


800 


*1300 


4800 


6150 






5^)0, 


950 


1675 


2350 


2475 


* 

3325 


4400 


5700, 


1450 


2075 


1400 


2025 


'1350 


1975 


800 


1275 . 






550 


1000 


1525 


2150 
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' Av»g. 

Trd-In 



Ins. 
Syra. 



1969 Alfa Romeo 
1575 



5 



1966 Austir^-Healey 

825 4 

1972 BMW 

AA75 6 

1973 Datsun 

1625 3 

1972 DatBun 
^ 1675 

1969 Flat 

1150 4 

1973 Honda 
1475 

1972 Jaguar 

^5175 ^*^7 
1968 Jaguar 4.2J(KE 

1550 6 
1966 Jaguar 

500 ' 6 

1973 Mazda Rtitary 
2300 / ■ 



/ 



1973 



750 



1967 M.G. 
600 



5 



1973 Mercedes-Benz 
7350 . 6 
1967 Mer'^edes-Benz 

26^)0 7 

1973 Porsche 

3650 6 
1966 Porsche 

1675 7 



IMPORTED CARS 



Body 
Type 



v.. 

Model 



ALFA ROMEJO (Italian) 

cSk Veloce I750 
AUSTDf-HEALET (English)* 

Con "300" Mk III 
BMW (German) 

Sed 4D Bavaria 
. mTSUN (Japanese) 

Sed 2D 1200 LBIOO' 

ujkup PL620 ' 

FIAT (Italian) 

Con Spider 124 
HDNDA (Japanese) 

Sed 2D SEA ' 

JAGUAR (English) 



Con 



V12 



Spt. Con 

3.8 Mkll 4D (O.D.) 
MAZDA (Japanese) 

Sed 4D R3C3 
M.G. (English) 

Con B 

Con "B" 
MERCEDES-H^Z (German) 

Sed 4D (AT) 280 

Con ^ 23OSL 
PORSCHE (German) 

Rdst 914 
Cpo 2000-6 91l/5_^ 



Av»g. 

loan 



1425 

750 

4050 

1475 
1525 



1050 
4350 

4675 
'1400 
4^50 

2075 

2475 
550 

6625 
2400 

3300 
1525 
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INSURANCE 



Card # 7 



Iriaurance is^ an Qsaentlal coat to be considered when buy^g a car. In most 
iitateo, liability inaurance is required by law. But in addition, as youtknow 
by now, a car is a major" investment, and this investment should be protected. 

The INSTAHIi': program on" the computer will help you determine the cost of insuring 
y».ur car. Use the" program to find the premium for the car you have in mind; then 
rerun it to find the premium for a different kind of coverage on this, car. 

When you run the prograrfHj you will find that the amount of insurance you pay is 
ilecided mainly by two things: youi- driving record, and the insurance number of the 
'oar you buy. The insurance number is found in the N.A.D.A. (National Automobile 
IXMaero' Association) Handbook, or on Cards # 5 and 6, and makes a big difference 
in, your insurance -costs,. Run the pro gr^am with the car you select, but usinpr dif- 
^lorent insui-ance numbers, and you will see the difference the insui^ance number make 

The- pretniumr. the' computer prints out are taken from a set of tables for 1973 used 
by an imau-ance company specializing in high-risk drivers (those drivers who have 
i-our driv-ing recgrdo). So these rates may be higher than many. Be sure to shop 
around to see what types and limits of coverage and rates are available to you. 

The insurance rates quoted here are restricted to 15/30/5 liability, 15/30 
C luiinaured motorist, $500 p^ir person medical payments, $50 deductible- comprehensive, 
and $10() filedijictible collision. 

l.cl,»Li look at the nature of each of these -coverages: 

1 ./'jO/i..,LIABILITYi ^ * s ' • ' 

In case ol" an aocident your insurance will pay up to $15,000 per person limited 
to $30,000 per accident for bodily injury to people in the other car. Also, 
your company would pay up to $5,006 for damage done to other people's property. 

■ l'.>/'30 UraSURED MOTORIST X 

- • ■. 

Under this coverage, your company will pay up tcf $l3,000 per person limited 
to $30,000 per accident. The money will be paid to persons in your car 
Lnjiu-ed in the accident. The cost of 'this coverage is $1 per month. 

f 

$0UO Fm PERSON MEDICAL PAYMENTS: 

Undor this cov9rage, your company will pay up to $500 per oerson for medical 
expenses resultirig from an auto accident. This coverage will cost you $1, $2, 
or $3 per month depending,, on the cost of your liability -coverage, (if your 
driving record io too bad, you won»t be able to get this cover^.) 

/ 



car Buying ■ ■ ' ' Caixi 8 - 

$50 DEDUCTIBLE COMPREHENSIVE: ^ • . „ 

If your car is damaged by fire or vdnd or" you .suffer a lo^s because 
/ of theft, this coverage vdll compensate you for all damage except the 
first $50. - ' 

$100 DEDUCTIBLE COLLISION: 

' ' * ■ - 

• Under this coverage your company Will pay all but the first, $100 damage to your car 
due to an accident. . ' . " 

Of these five types of coverage, you are required by state law to carry liability 
coverage only. You do not have to carry any of ^he other 4- categories of coVerage. 
Conaequently, you may wish to run the INSTABLE program several times to compute " 
different combinations Oif coverage. 

Each time you run the program the computer will print out the cost of your premiupi. 
Now look at Student Worksheet #-8a. In the space at the top, of the page, describe 
the car you wish to insure. . . ' . ' ' ' 

EXAMPLB;: \ ^ ^— 



I 



1971 Ghevy Malibu,. 2 dr., hardtop, V8 • . . ^ 

tn tho -opace marked COVERAGE (l), describe the kind of insurance coverage you think ' 
you might/ want. \ * 

EXAMPLE: T ' . • 

15/3^5 liability, uninsured rtfot oris t, and medical. No collision or comprehensivQ| 

In' the V)ace marked COVERAGE (2),' describe a different kind of coverage. 

^ In the apace marked INS. NUMBER (l), enter the insurance number of the car as 
indicated in the N.A.D.A. Handbook. 

In the space marked INS, NUMBER (2), put in a different^ insurance number for the 
same car, " 

Run the program three times: (l) For the first kind of coverage, with the original 
in-burance number; (2)' For the second kind of coverage, with the original insurance 
number; (3) For it he first kind of insurance coverage, with the changed insurance 
number. Enter the results in columns 1,2, and y of the table at the^-bottom of 
Student Worksheet # 8a, ' " 



Car Buying 
CAR: 



COVEEUGE (l): 



COVERAGE (2): . 



Student Worksheet # 8a 



INS. NUMBER, (l): 
*^ INS. NUMBER (2): 



RUN 1 
COVERAGE (l) 



' RUN '2 
COVERAGE (2) 



RUN 3 ■ 
COVERAGE (l) 



^ LIABILITY 15/30/5- 




N 


1 — 'w .V y » 


UNINSURED MOTORIST 15/30 




1 




1 

v- 

> MF.niCAL 'PAYMMTS $500 


* 






$50 Dli^TXJCTTBLE • 
COMPREHENStVE 








$100 DEDUOriBLE 
COLLISION . 




V 




• TOTAL PREMIUM per month? 








Per year: 






T 



/ 



\ 
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Car Buying 



Card # 9 



/ 



Right now -you are more interested in buying a motorcyclp than a car. 
Here is one aspect of buying a bike, jj^surance , r' ✓ 

This program will tell you how much it will cost to insure a bike. 
But there, are a few things ^u must know.* The most important is' what all 
the terms mean auch as liability, comprehensive, $50 deductible" and others. 
Here is a list of all the terras and definitions you will need to know in 
order to get inB\irance,. ^ . ^ 

Liability t insiires against loss through legal responsibility for bod- 
ily injury and/or property damage caused by accident by this motor vehicle. 



motor 



Comprehensive : covers any direct and accidental loss, or damage to the 
cycle, except loss caused by collision of the bike with another object."^ 

Collision ; covers any collision with another object written in terms ^ ' 
of $50 deductible vrfiich means the owner 'pays the- first $50.00 and insurance 
^ pays the rest -or $100 deductible, or whatever the insurance calls for. 
This is for yow motorcycle when you are at fault or you are hit by an un- 
insured mqtorist. 

Uninsured li^Qtorist ; pays the insured for bodily injury caused by drivers 
uninsured veiiicles when sucli drivers are legally responsible for injtiry 
to the insured. -In a case of hit and run, you are c'overed when injury arises 
out of an accident when neither the car nor the driver can be identified. 
Also, you imiat report to the police within 24 hours and notify the insurance 
- company within 3,0 days. ^. , 

Guest Bodily In.1ury Liability : covers guest rider only when the driver 
is careless or la drunk. This only applied in Colorado, 

'■ ^ ■ ■ 

Another thing you will need to know is how "many cc»s the bike has and the 
* age of the bike. 



I 
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.§tudent Worksheet # 9a 



1. Input to the computer the following information when it asks for it. 
New bike . ' ■ 

. 350 cc»a, * . • ^ 

12 months \ . * 

Package Plan 

Yes for Uninsured Motorist * 

Yes for Bodily Injuiy 
, * ' ♦ 

How much for Taclcage Plan - 

Uninsured Motorist 

Bodily Injury 

* * Total 



ii. ^ . New bike 

350 coAe . 
6 months 
Package Pl^an 
I Yes for Uninsured Motorist 

^ Yes for Bodily Injury 

How much for Package Plan 
. , Urd^nsured Motorist --^ 

Bodily Injury 

Total 



Whioji i^TTnore expensive per month, 6 months or 12 months? 



3« Put in your own numbers;' 
^ How majiy cc's. 
/ Package or Liability 



< 



Uninsured Motorists Yes or No 

Guest Bodily Injury Yes or No 
How long pay for . 
How old is bike V 



3 
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CARI^' 



Con^juter Sheet # 1 



Tho follovdng progranLT are written in the BASIC language for the Univac 
U(V). The worda PRINT and LBT. 'are optional on this ayatem and IF-THEN 
*■ uUtetnentM may have the same c6ntext as ,1'ORTRAN. Additionally, formatting 
1h allowed via thf PRINT IN IMAdto coiiimafid. Therefore, much, of each program 
may need to be- modified for other ayatema. 



Tho following E^o gram GARR waa written by Dave Lind and Steve Meer of 
George Washington High School, Denver, Colorado. 



IN. A HIGHLY ADVANCED 



VERSION 



OF 



.10 . HEM THIS PROGI^AM IS WRITTEN 
20 HEM THE BASIC VANG U AGE. . • / , ' 

30 REM IT MUST BE MODIFIED BEFORE USE m MOST SYSTEMS 

40 REM THESE ARE THE FUNCTIONS WHICH FIND EQUIi/AlJiWT APR AND ADD-ON RATE 



50 
60 
70 
«0 
90 
100 
1 10 
120 
130 
i/lO 
150 
160 
170 
IBO 
190 

'^too 

210 
,280 
830 
240 
250 
860 
J70 

leo 

29^0 
300 
310 
3^0 
330 
340 
35^ 



380 
390 
400 
410 
480 
430 



DIM Z(3, 10),Y(3* 10) 
DEF FNA(A* I*N) 
R-l+CI/12dO) 
B«0 

FOR J-0 TO N-l 
B<»B+(R**J) 
NEXT J - 
FNA«(A«(R*>»N) )/B 
FNEND 

DEF FNR(^J)-(INT< lOOoCX+.OOS) ) ) /lOO 
DEF FNP(N/I ) ^ f' 

W-<< (-N/iaOO)*I )-l)/-N 
L« 1*1 . 8 

A1«-ABS(((( U(L/ia00))**-N)-n/(L/l200)) 
Bl-(<<Al*W)-l)»L*3) 

ll-»Bl*L / . ^ 

IF ABS(B1)-,001>0 THEN 180 , 
FNP-L 

FNEND * * . 

REM THI^ N.EXT SECION EXPLAINS THE PURIJOSE OF THE PROGRAM 
REM IT ALSO EXPLAINS THE REQUIRED INPUT FORMS* 
»THE PURPOSE OF THIS PROGRAM TS TO HELP YOU^ 
TO FILL IN YOUR COHPARI SON TABLES FOR BUYING A CAR.* 
THE PROGRAM WILL ASK^ YOU TO INPUT VARIOUS VALUES.^ 
'/tfHEN YOU INPUT A NUMBER* NEVER USE A COMMA/ A DOLLAR 
OR A PERCINT S^GN- ALWAYS SIMPLY PUT fN THE NUMBER* 
THUS« Ijr THE PRICE OF YOUR CAR IS S2095»00» WRITE 8095 
IF THE' INTEREST RATE- IS 6X« WRITE 6« NOT 6f OR •06*' 
FIRST IT NECESSARY TO KNOW WH^lj^lE^ YOU WIJLL BE' 
GETTING THE MONIY YOU REQUIRE FROM A BANK# A DEALER' 
OR FROM A CREDIT UNION.' 
360\reM THIS IdIXT SECf!M)W ASKS THE SOURCE OF THE LOAN AND THUS 
370^ REM Diff ERMINES THE COURSE OF THE PROGRAM. 



SX^* 



'PLEASE TYPE IN EITHER BANK# DEALER OR CREDIT UNION* *l 
INPJJT A» • ' 

A«)C«>D*i>T"0 ' " ^ 

IF AS- 'BANK' THEN C«l 

IF AS- 'DEALER* THEN C* a # 
IF AS-*CREDIT UNION* THEN C«3 



xvili 
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Car Buying 
440 ir C»0 THIM 3S0 

450 PRINT . . 

460 REN THE I^EXT SECTlON riNDS INFORNATION REGARDING THE 



Computer Sheet # 2' 



PUI^CHASE 



PRICE# 



470 
480 
490 

500 
910 

!seo 

5^0 
540 



REM TRADE- 1 N# DOWN PAYNBNT# ETC 
•INPUT THE PRICi or YOUR CAR* I 

INPUT P . ^ 

•DID YOU NAKt A DONN PAYMENT (YES OR NO)*l ' / 
INPUt B< ^ 
IP BS-fNO^ THEN 9*0. « 
If Bto^YES^ THIN 500 

•INPUT THE 4H0UNf or YOUR DQVN PAYMENT* I ' 

550/lNPUT'D \ 

560 VDO YOU HAVE A TR||DE INCYEI OR NO>*l 

"570 INPUT OS » ^ ■ , 

580 ir^CS«*NO^ THI^N 680 
590 IF (;*<>• YES • THEN 560 

600 •WHAT WILL. THE DEALER ALLOV YOU ON YOUR TRADE-IN^J 

610 INPUT T 

620 • INPUT THE LOCAL SALES TAX RATE^I 

630 INPUT R' • 
640 X-FNR<<R/100)*<P-T)) 

650 PRINT • 
660 PRINT 

670 REM THIS NEXT SECT I ON PRINTS OUT A PRELIMINARY SET OF DATA 
680 HEH^GARDING THE^COST OF THE CAR#SALE8 TAX* AND OTHER COSTS 
690 REN (EXCEPT THE COST OF THE LOAN 



RE- 



Sf •|(P-T>*X 
SS*t(P-T«X> 



PRINTINIMAGE •THE PRICE OF YOUR CAR IS SSSSSSSS. SS * I P 
ir T-0 THEN 740 i 

FRINTINIMAQE •MINUS YOUR TRADE-IN OF ttSttSlff S.Sif* IT ' 
PRINTINIMAGE *EQUALS ttSSUftlSfttlStSSStSttStSt . SS • t ( P^T) 
•PLUS THE SALES TAX AT *JHI* »• 

PRINTINIMAGE •ON Sttitl.fS IS ftSSSSSSSSSSSSSS. 
PRINT.INIMAGS *FOR A TOTAL OF SSSSSStSSSSSiSSSSS. 

z<c*n-A 

IF D«0 THEN 810 

PRINTINIMAGE •MINUS THE DOVN PAYMENT OF StSSSSS. SS • I D 
•THE TOTAL iMOdNT VHICH^ 

PRINTINIMAGE *YOULL HAVE TO FINANCE IS SSSSSSSS. SS* t A 

PRINT 
PRINT 

REM THIS NEXT SECTION FINDS THE DETAILS WHICH PERTAIN TO THE 



LOAN. 



vAPR 6r ADD-ON RATES# TERM OF THE LOAN ETC* 
MANY MONTHS. WILL YOUR LOAN RUN*I 



REM I*E* 
*FOR HOW 

INPUT N . ^ 

I e/as<>* CREDIT UNION* THEN 1050 

* INPUT tHE ANNUAL PERCENTAGE RATE QUOTED* 

« TO YOU BY YOUR CREDIT UNI0N*(1F YOU WERE* 

•QUOTED .A MONTHLY RATE THEN PLEASE MULTIPLY* 

*IT BY jla).*l 

INPUT I . 

U»I 

M-FNR(PIIA(A#I#N>) 
TI«FNR(M«N> 
Il-Tl-A ; 



I 



iPl«FNRC 100>l>(CI S/A)«( lt/N> ) > 
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Car HuyiriK 
1000 cs 

loio 
loet) 

1030 
1040 
1050 
1060 
1070 
1080 
i090 
1 100 
1 1 10 
1 120 
I 130 
1 140 
1 ISO 



CARR (Cont'd) 



Computer Sheet # 3 



*ADD-ON* 
DSai'AMNUAL PERCENT AQE < 
e(C«6)«"I 
£(C*5)»P1 
dO TO 1160 

•INPUT THE ADD-ON RATE 

INPUT I 

Il-FNR(A«I/lOO«>N/lfl) 
U«I 

pi«rNR(rNP(N#i )) 

Tl-A^I 1 
M-FNR(Tl/N) 

CS- 'ANNUAL PERCENTAGE' 
DJ-'ADD-ON' 
Z<C*6)-Pl 



QUOTED TO YOU BY YOUR *JA$J 



Z(C#5)-I 

I iVO Z(C*3)-M / 

1 1«0 Z(C#4)«T1 i 

i 190 Z(CW )-N . 

IfiOO PHI NT , 
leiO PHINT - 
1220 PRINT 

1030 RKM THIS NEXT SECTION TELLS THE USER HIS MONTHLY PAYMENTS* COST 



1240 HEM BREAKDOWN AND THE EQUIVALENT LOAN RATES 

1250 PRINTINlMAOE ^VoUR MONTHLY PAYMENT VILL BE SSSSSSSSSSSSSS. $S ' IM 



1 260 
1270 
1280 
1290 
1300 
1310 



PRI^T 

PRINTINIMAQE 
PRINT 

PRINTINIMAGE ' 
PR I NT 'FROM YOUR 
PRINTINIMAQE <* 



'THE INTEREST 
'AT AN 'JDSJ' 
' OF 
'JASJ' FOR 



ON tSSStSS.SS' lA 

RATE' 

%%%%%%%%%%,%% PERCENT* lUl 
'IN^' MONTHS' ' * 

m $$ttssstsssssssstssf4sssss.ss'ii 1 



1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 



PRINT 

•THE CAR WILL COST A TOTAL OF t'^Tl 
•THE •JDS;^ RATE WHEN CONVERTED TO AN 
•RATE IS •JPIJ^ !• 

PRINT 

PRINT 

PRINT 
» 



EQUIVALENT •ICS 

A 



DATA 



YOU HAVe INTERID'^0 Fi^. 
FOR J« 1 TO 3 1 
IF Z( J« l)-0 THBNl l4Mfo 
IF J-1 THEN PBIM«^^ANK^ 
IF J«& THEN PRINT •DEALER' 
IF J«3 THEN PRINT •CREDIT UNION 
NEXT >J 

i)EM THE USER* NOV HAS THE CHC^CE 



FOR 



At 



OF 



REM THE SOURCE* OR TMB TERM ^ OF THt 



CHANQING 
LOAN# OR 



THE DATA« 
HE HAY HAvE 



A TABLE 



1480 
1490 
1 SOO 
1510 
15110 
O 530 
ERIC 540 



REM PRIHTED OUT WHICH CONTAINS THE CURRENTLY INPUTED DATA 
*lf YOU WISH TO ENTER DATA FOR ANOTHER TYPE/ 
• OF ORG AN I EAT I ON OR WISH TO CHANOr DATA * 

•THAT WA6 ENTERED PREVIOUSLY* THEN TYPE YES* IF NOT TYPE^ . 



•NO AND A 
•THAT YOU 
*TYPE YEf 



COMPARISON TABLE WILL 
HAVB/BNtBIIBD 90 FAR*' 
OR NO'I 3CX 

± 



BE PRINTED FOR ALL THE DATA 
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Computer Sheet 4 



1550 
15^0 
1570 
l!i60 
1590 
1600 
1610 
1680 
1630 
1640 
1650 
1660 

1 67 0 

1680 

1690 

1700 

1710, 

1720 

1730 

1740 

17S0 

1760 

. 1770 
1780 
1790 
1800 
1810 
1880 
1830. 
1840 

.1850 
1860 
187 0 
1880 
1690 
1900 
1910 
1980 
1930 

> 1940 
1950 
1960 
1970 
1980 

1990 
800b 
8010 
8080 
8030 

8040 
8050 
8060 
807 0 
80BO 

8090 

1100 



THEN 
THEN 



INPUT El 
PRINT 
PRINT 

IF ES«»YES'* 
IF E$<>'N0» 
PRINT 
PRINT . 
N"0 

FOR J-1 TO 3 

IF ZC J* 1)»0 THEN 

N-N-H 

HEM THIS SECTION 



300 
1550 



1710 



OF THE PROQRiM PRINTS OUT THE COMPARISON TABLE 



THEN 
THEN 



LOAN WHICH THE USER HAS PREVIOUSLY DESORIBED 
PRINT TAB( 15«N)i *BANK*I 

TAB( I5«N)I*DEALER*I 
TABn5*N)l' CREDIT UNION'I 



PRINT 
PRINT 



REM FOR THE 
IF J-1 THEN 

IF j-a 

IF J-3 
NEXT J 
PRINT 

• AMOUNT* 
•FINANCED* I 
C-1 

60SUB 2640 
C-2 

• INTEREST' J 
GOSUB 8640 
C-4 

•TOTAL* 

• NOTE^I 

GOSUB 8640 
C-3 

•MONTHLY* 

• PAYMENT • J 

aOSUB 8640 
C«5 

•ADD- ON • 
•RATE^ i 
aOSUB 8640 
C-6 

•ANNUAL «• 
•RATE'i 

QOSUB 8640 " 
C-7 ' - ' • 

•NO. or MdNTHSI 
QOSUB 8640 

PRINT , 
PRINT 

PRINT s 

REM THIS SECTION PRINTS OUT TABLES FOR THE SAME LOAN VI TH 
REM DIFFERENT TERMS TO INDICATE THE RELATIVE COSTS* 
PRINT 

SET OF TABLE! VILL BE PRINTED* 
COMPARE PRICES. OF LOANS FOR DIFFERENT TERMS** 



ERICH 10 



•NOV A 
•VHICH 
PRINT 
FOR Q« 
•TABLE 
N«0 



84 TO 36 STEP 18 
FOR 'lOI* MONTHS* 
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8180 

aiao 

8140 
8150 
8160 
8170 
8180 
8190 
8800 
8810 
8880 
8230 
8840 
8250 
8860 
8870 
8880 
8290 
2300 
2310 
2380 
2330 
8340 
2350 
2360 
8370 
83&0 
8390 
2400 
8410 
8480 
2430 
8440 
8450 
2460 
2470 
2460 
8490 
8500 
2510 
8580 
8530 
8540 
8550 
8560 
8570 
8560 
8590 
8600 
8610 
8680 
8630 
8640 
8 6 SO 
8660 
8670 
8680 
8690 

ERIC 



FOR J» 1 TO 3 

IF Z(J# 1)«0 THEN 8180 

(f«N^l 

IF J-l THKN PRim TA9(II«I8)I*BMIK*I 

IF J«8 THtN Pikirr TAB(15*II)MJ)KALCR*I 

IF J«3 THIN PRANT Tili( ISM) I 'ClUEDIT UNIOIf'l 

NEXT 4 

V( 1» 1)«2:< 1» 1) 

V(8» l)»Z(a» 1) 

V(3» l)«ZO» 1) 

FOR Y-1 TO 8 

IF V(Y#n«0 THIN 8890 

V(Y«8)>iFNB(V(Y» 1)*Z(Y»5)/100*Q/18) 

V<Y,6)«FNR<FNP<0#Z<Y*5))) 

V<Y#4)«V<Y* 1)4V<Y#8) 

VCY#3>**FNR(V(Y»4>/Q> 

V<Y#5)iZ<Y#5) 

NEXT Y 

IF V(3#l)«0 THEN 8360 
V<'3#3)-FNR<FNA(VC3# I )# Z< 3# 6) # Q) ) 
V<3#4)-FNR<V(3#3)*Q) 
V<3*8)«V<3^4)-V(3# n 

V<3#5)-FNR< 100*<<<V<3#8)/V<3# 1)>*< 18/Q)))) 

V<3#6)-Z<3#6) 

PRINT 

C«l 

•AMOUNT' 
'FINANCED* I 

QOSUB 8730 . 
C«8 

•INTEREST' J 
QOSUB 8730 
C«3 

•MONTHLY' 
•PAYMENT' J 
QOSUB 8730 

C-4 ^ 

•TOTAL^ - 

•NOTE' I 

QOSpe 87 30 

C"5 . 

•ADD-0**^ 

•RATE') 

QOSUB 8730 

C"6 

'ANNUAL X' , 
•RATE 'J ) 
QOSUB 8730 

PRINT ^ 

PRINT 

NEXT Q 

00 TO 8880 < ♦ 

K-0 

FOR J«l TO 3 
IF Zrj«C)*0 THIN 8690 
K-K*l 

PRINT TAB<K«I5)IZ<J#C)I 
NEXT J »di 
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27O0 
2tl0 
8780 
8730 

8750 
8760 
87X0 
8780 
8790 
8800 
8B10 
2880 
2830 
8840 
8850 
8860 

8880 



PRINT > 
F^HINT • , 

RETURN 

K-0 *. 
FOR H«l TO 3 / 
IF. V(H#C)«0 THEN 8780 

PRINT. TAB(154'K)JVCH{C)I 
NEXT H 
PRINT 

PRINT , 
RETURN , . 

• 4i4i*4i««4i4i4i4i«4i4ii»«4i4i>(i4ci«r4t4i«4i4i*4i4i4i!^#4t4i«««4l4i««« • 

nm THIS SECTION PRINTS OUT TABLES FOR THE SANE LOAN BUT. WITH 
REM THE COSTS OF HEALTH AND ACCIDENT INSURANCE AS WELL AS- 
REM MORTGAGE INSURANCE INCLUDED. 

PHI NT 
PRINT 

'NOV YOUH ORIGINAL TABLE OF ENTRIES WILL BE MODIFIED TO INCLUDE' 



\ 



2850^' VALUES FOR MORTGAGE INSURANCE- FIRST* A TABLE OF CREDIT LIFE COS 



2900 • WILL BE PRINTED OUT. THEN A TABLE FOR CREDIT LIFE PLUS HEALTH* 
8910 • AND ACCIDENT INSURANCE WILL BE PRINTED^^ OUT* SO THAT YOU MAY* 



ic 



8980 
89 30 
8940 
8950 
8960 
2970 
8960 
8990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080^ 
3090 
3100 
31 10 
3180 
3130 
3140 
3150 
3160 
9170 
3L80 
3190 
3800 
3810 
880 



IS FOR CREDIT LIFE PLUS HEALTH AND ACCIDENT 



* COMPARE THE COSTS OF EACH-' 
PRINT 
PRINT 

GO TO 3640 
•THIS TABLE 
PRINT 
PRINT 

FOR J- 1 TO 3 
FOR K«i TO 10 
V( J#K)»0 
NEXT K 
NEXT J 

V( l» 1>-Z( l# I) 
V(2« 1)-Z(8« 1) 
V(3# 1)- Z(3# 1) 
K-0 

FOR J« -i-TO 3 
IF Z( J# 1)«0 THEN 3140 
K-K^ 1 

IF J*il THEN PRINT 
IF J-8 THEN PRINT 
IF J- 3 THEN PRINT 
NEXT J 
Y»0 

IF Y«3 THEN 3300 
Y-Y+1 

IF Z(Y/ 1)»0 THEN 3300 
V<Y#5)-Z(Y#5) 
V(Y#7)-Z(Y#7) 
A-< .007 54>(£(Y/7>/ia))«( 14(V<Y# 5>«Z( Y/ 7 ) /1800) > 
B«(.0189t(2(Y#7>/18)>4<(l^(V(Y«5>4>£(Y#7>/1800)> 

• xxiii • 



TAB(K* 15); 'BANK'l 
TAB(K4' 15)1* DEALER* J 
TAB(K*15)I*CREDIT UNI ON* I 
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3830 V(Y«8)iirNR<(*V(Y. l)*A)/(B<fA-l>) 

3840 V(Y#9)«rNR((«*V(Y« 1)*B)/(B^A-1>) 

3850 V<Y#lO)-VCY#l^*V<T#i1*V<Y#9) 

3860 V(Y«8)«niR(V(Y« 10)*VCY«S>/100iV(Y«7)/18> 

3870 V(Y«3)-niR<(V(Y«10)4>V(Yf a))/V(Y«7>) 

3860 V(Y#4>-VCY#I^>^V(Y«8) 

3890 GO TO 3160 

3300- PRINT - • / 

3310 PRINT 

3380 PRINT 

3330 'AMOUNT* 

3340 •riNANCEP'l 

3350 C-l 

3360 QOSUB 87 30 

3370 C«8 

3380 'TOTAL' ^ 

3390 'CREDIT LIFE' J 

3^00 QOSUB 87 30 * 

3/II0 'TOTAL' 

3480 'ACC^jAND H.'l 

34i30 C-9 i 

3440 G0SUB^8730 

3450 'TOTAL' 

3460 'AMOUNT' 

3470 'FINANCED'! 

3480 C-IO ' . \ 

3490 QOSUB JB730 

3500 C-8 

3510 'INTEREST'I " ' 

3580 QOSUB 8730 
3530 'MONTHLY' 
3540 'PAYMENT') 

3*55((^C«3 - 

3560 QOSUB 8730 ' ' ^ 

3570 '^TOTAL' 

3580 'NOTE'J 

3590 C-4 

3600 QOSUB 8730 

3610 PRINT 

3680 PRINT 

3630 QO TO 4170 

3646 'THIS NEXT TABLE IS FOR CREDIT LIFE OI^LY' 
3650 V(U7)-Z(1»7) * 
3660 V(8#7)«2(8«7) * 
3670 V(3»7)»Z(3#7> 
»3680 K-0 , 
3690^-0 

3700 IF F-3 THEW 37»0 
3710 F-F*l 

3780 IF 2(F#l)-0 THEN 3770 
3730 K«K*I 



xxXv 
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3740 
3750 
3760 
3770, 
3780 
3790 
3000 
3810 
3880 
3830 
3640. 
3850 
3866 
3870 
3886" 
3890 
3900 
3910 
3980 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4080 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
■ 4110 
4180 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4800 
4810 
4880 
4830 



PRINT 
PRINT 
PRINT 



TAB( 15«K>I 'BANK*I 

TAB( 154>K>i * DEALER* I 

TAB ( 15*K> I * CREDIT UNIOM*| 



3910 



IF F-1 THEN 
IF r«8 THEN 
IF F<i3 THEN 
QO TO 3700 
PRINT 
PRINT 
Y-0 

IF Y-3 THEN 
Y-Y*l 

IF Z(Y# 1>«0 THEN 3900 

A-<.0075*<r<Y#7>/18))<i<l*<V(Y,5>*Z<Y#7)/1800>> 
V(Y#6)«FNR(<V(Y# l)<|iA>/( 1-A>) 
V(Y# 10)«V(Y# 1)*V<Y#8) 

V<Y,8)-rNR(y<Y*10>*V(Y,5)/100'»V(Y*7)/18> 
V(Y#3)-FNR<<V(Y# 10)*V<V#8))/V(Y#7) ) 
V(Y#4)- V<Y# 10>4V(Y#8> 
GO TO 3810 
PRINT 
PRINT 

* FINANCED* J 

C-l - 
aOSUB 8730 
•TOTAL* 

•CREDIT LIFE*! 
C^B 

aOSUB 8730 

•TOTAL* ' 
*AHOUNT* 
* FINANCED* I 
C-10 

Q06UB 8730 
*INTEREST*i 
C-ft 

QOSUB 8730 
•TOTAL* 
•NOTE* J 
C»4 

aOSUB 8730 . 

* MONTHLY* 0i 

* PAYMENT • I 

C-3 ^ • • 

8730 
8960 



QOSUB 
00 TO 
PRINT 
PRINT 



!ii!i*Tn2S'1i:;'^;5.^"* comparison charts FOR YOUR AUTO LOAN* 
*NOV TURN TO THE INSURANCE PART OF THIS VORKSHEET * 

REM SEE THE INSURANCE PANT OF THE UNIT VORKSHEET AND PROGRAM 
END 
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^ BASIC*OPS0O3.AM0|ITL0Alf 



I 

a 

3 
4 

5 
6 
7 
6 
9 
10 
11 

ie 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

26 

29 

30 

31 

32 

33 

34 

35 
36 
37 
38 
39 
40 



100 'VHAT IS 
110 XMPyT P 
00180 
00130 
00140 



THK TOTAL AMpUWT YOU AM BOHROVING'I 
THt iMmUAl, PIRCINTAet RATI* I 
NANY YEARS* I 



•WHAT XS 
INPUT Rl 
*POB HOV 
00150 IlfPUT Ml 

00160 Om I(S00>#N(500>#P(&00>#T(50Q)«B(500> 
00170 N«Iirr(Nl*lt^.5) 

00180 ROaRl/lfiOp^l f 
00190 R81^t/it00 

N 1 - ( P«R0#4II4 C RO* 1 > > /( RO*«N- 1 ) 
A-NUN ^ 

M-IHTC 100* CWl*. 0099)) 
N»M/100 

P<0)-P * 
rOR K- 1 TO N- 1 
M(K)-M 

P(K)-P(K-1)*R0-M(K) 
BCK)«PCK-1)^PCK) 
C-C+BCK) 
I(K)«H(K)-B(K) 
NEXT K - 

N(N)*-A-H4i(N>l) 
P(N)>0 
B(N)"PC0)-C 
I(II)«H(N)-B(N) 

PRINT 'TOTAL AMOUNT BORROWED IS S'P 

■INTEREST RATE PER MONTH EQUALS* I R8 
•ON THE UNPAID BALANCE* 



00800 
00810 
0Q880 
00830 
00840 
00850 
00860 
00870 
00860 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
410 
415 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



00480 PRINT 



*LENflTH OF LOAN IN MONTHS IS* IN 
*MONTHLY PAYMENT IS S*l 
IN INAQE *IXX%,%I* IM 

•EXCEPT FOR THE LAST PAYMENT WHICH WILL BE $*; 

IN INAQE *tSXX.X%*lM(N) 



00430 PRINT 
438 T-A-P 

433 PRINT *THE TOTAL AMOUNT OF INTEREST PAID IS S*| 

434 PRINT IN INAQE *XXXXX.XX*|T 

435 PRINT I 

440 *M0NtJN' INTEREST PYMT ON 



BALANCE 





PYMT* 




41 


450 * 




48 


t' 

00460 


PRINT 


43 


00470 


FOR J»i TO N 


44^ 


00480 


PRINT IN FORM 


45 


00490 


PRINT IN FORM 


46 


00500 


NEXT «J 


47 


00510 


END 



PRINCIPAL 



ERIC 



35 



Car Buying ' 



INSCYCLE 



Ccwnputer Sheet # 10 



The follovd.ng program, INSCYCLE was written by Michael foff . 



) 



OOlOO 'THIS PROdRAM FINDS MOTORCYCLE INSURANCE. • 
OOUO 'YOU MUST PUT IN THE FOLLOWING INFORMATIONS 



•KOW 



OLD IS THl BIKEl NEV# ONE YEAR OLD# • 
OR TVO YEARS OLD OR OLDER?* 
NEV# 13 IF ONE YEAR OLD# 3 IF OLDER.* 



IF 



180 
121 

130 * INPUT 1 
00140 INPUTA 
150 *HOW MANY CC**S DOES IT HAVE*J 
00160 INPUT B 

170 *FOR HOW MANY MONTHS DO YOU WANT TO PAYl 6, 9, OR 12*1 
00190 INPUT C . 



BOO 
805 
810 
815 
880 
285 
886 
230 
835 



*YOU MAY HAVE JUST LIABILITY I NSURANCE* OR YOU MAY HAVE* 
*THE PACKAGE PLAN* WHICH INCLUDES LIABH.ITY, FIRE AND THEFT* 
•INSURANCE, AND COLLISION AND .COMPREHENSIVE. THE COLLISION* 
* INSURANCE IS $50 DEDUCTIBLE, UNLESS YOUR BIKE IS OVER* 
*360 CC**S. I« THAT CASE, THE COLLISFON INSURANCE BECOMES*? 
•$100 DEDUCTIBLE.* 
PRINT 

•INPUT 1 IF YOU WANT STRAIGHT LIABILIO-Y.^ 
•INPUT 8 IF YOU WANT THE PACKAGE PLAN.' 
00240 INPUT D 

8^0 'DO YOU WANT UNINSURED MOTORIST COVERAGE 'J 
860 INPUT E$ ^— 

00261 'DO YOU WANT GUEST BODILY INJURY LIABILITY* J 

00868 INPUTl&$ 

865 PRINT . 

866 PRINT 

0 0870 IF D«8 GO TO 740 
00860 IF C-6, GO TO 590 
00890 IF C»9 GO TO 440 
00300 IF B< 



GO 
, GO 
GO 
100 

003^10 ^0 TO 430 
00380 IF B<-900 
330 GO TO 430 
00340 IF B<»360 
350 GO TO 43iO 
00360 IF 
GO 
IF 
GO 
IF 
GO 



BoUsO 



00370 
00360 
00390 
00400 
00410 
00480 
430 
431 



THEN p-as ELSE GO TO 380 
THENP-30 ELSE 00 TO 340 
THEN P-40 ELSE GO TO 360 
THEN P-50 ELSE GO TO 380 

TO 430 

BoSSO THEN P-35 
TO 430 

B <«750 THBNP"60 ELSE 60 TO 420 
TO 430 
P-70 

PRINT *LIABILITr IS *J 
PRINT INIMAGE *St$$S.$$*iP 



438 PRINT 
435 80 TO 8340 
00440 IF B<-100 
00450 GO 
00460 IF 
00470 QO 
00460 IF 



ERIC 



O J0A90 QO 



TO 570 
B4-800 
TO 670 
B4ii360 
TO 570 



THEN PofiO ELSE GO TO 460 
THEN P«84 ELSE GO TO 460 
THEN P"38 ELSE 60 TO 500 

X3cvii 
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00500 IF B<-450 THEN P-40 CLSB 60 TO SfiO 

00510 00 TO 570 

00580 IF B<-550 THEN P-il4 ELSE GO TO 540 
00530 00 TO 57 0 ( 

00540 IF B<-»750fHEN P»48 ELSE flO TO 560 
00550 QO TO 570 
00560 P-56 

570 PRINT 'LIABILITY IS •! 
575 PRINT IN IMAGE 'SSSSS.SS'tP 

578 PRINT 

00580 GO TO 8340 

00590 IF B<- 100 THEN Pp15 ELSE GO TO 610 

00600 QO TO 780 

00610 IF B<»800 THEN P»I5 ELSE GO TO 630 

00680 GO TO 720 

00630 IF B<»360 THEN P-B4 ELSE GO TO 650 

00640 GO T07 20 

00650 IF B<»450 THEN J>-84 ELSE GO TO 670 
00660 GOTO 7 20 

00670 IF B<-550 THEN P«33 ELSE QO TO 690 
00680 GOTO 720 

00690 IF B<"7 50 THEN P-36 ELSE GO TO 710 
00700 GOTO 7 20 
007 10 P-42 

7 8.0 PRINT 'LIABILITY IS 'J 

725 PRINT IN IMAGE * SSSSS. $S ''t P 

727 PRINT 

00730 GO TO 2340 

00740 IF A-3 GO TO 1880 

00750 IF A*8 GO TO 1890 

760 IF C-12 GOTO 1180 

00770 If C«9 GOTO 950 

007 60 IF B<«70'THEN P-87 ELSE GO TO 600 
OO790 GO TO 930 

OOaOO IF B<-100 THEN P-38 ELSE GO TO '680 
00810 GO TO 930 ^ 
00080 IF B<* 185 THEN P-45 ELSE G0T0840 
00830 GO TO 930 

00640 IF B<-800 THEN P-48 ELSE GO TO 860 
00650 QO TO 930 

00860 IF B<-360 THEN P-69 ELSE QO TO 680 
00870 GO TO 930 

00880 IF B-<-450 THEN P*93 ELSE GOTO 900 
00890 GOTO 930 

00900 IF B<"»550 THEN P-108 ELSE GO TO 980 
00910 QO TO 930 
00980 P-135 

930 PRINT 'THE PACKAGE PLAN IS •! 
935 PRINT IN IMAGE •SSSSS.SftP 
•937 PRINT 
00940 80 TO 8340 

00950 IF B<-70 THIN P-36 EL6I GO TO 970 
00960 flO TO 1100 

00970 IT B<-IOO THKN P-48 EL8B aOTO 990 
00980 00 TO 1100 < 
00990 If B<»18S THEN P» 60 ILSI 80T0 lOrO 



ERIC 
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P-45 ELSE GOTO 



1140 
1160 
1 180 



1200 
1820 



' 01000 GO TO 1 100 

V°oTo l'orT:Z ""^ " 
olS^S To ?rf!So"""'"'** '"""^ ^? 
o\Z GO ?rma™™ -'" ''^ 

01090 P-180 

1100 PRINT 'THE PACKAGE PLAN IS •! 
11^05 PfiINT IN IMAGE *SS$SS.SS*1P 
1107 PRINT 
OHIO GO TO 8340 
01 120 IF B<«70 THEN 
01130 GO TO 1870 

01140 IF B<.100 THEN P-53 ELSE GO TO 
01150 GO TO 1870 

01160 IF B<. 125 THEN p.75 ELSE GO TO 
01170 GO TO 1270 

01180 IF B<-800 THEN P-80 ELSE 00 TO 
01 190 GO TO 1870 

olm 00 ?o"mo™™ 

01260 P-225 

1870 PRINT 'THE PACKAGE PLAN IS M 
1875 PRINT JN IMAQ^ *SSSSS.U«IP 
1877 PRINT \ 
01880 GO TO 8340 

01890 IF d^ie GO TO liso 

01300 IF C-9/Q0 TO 1480 
01310 I r B^^mjo THEN P-84 ELSE 
01380 GO TO 1460 ' 
.01330 IF B<*100 THEN P-a4 ELSE GO 
01340 GO TO 1460 ^ 
01350 I F B<-18^5 THEN P-42 ELSE GO T 
01360 GO TO 1460 

01370 ir B<«800 THEN P-45 ELSE GO TO 
01380 GO TO 1460 oe. uu lu 

0°!4'00 gS tTI^So'"'" 

Vitlo II tTuV"'" '''' 

n\Aliln ?*-55<»'THIN P.96 ELSE GO TO 1450 
01440 GO TO 1460 
01450 P-189 

1460 PliNT 'THE PACKAGE PLAN IS 'J 
1465 PRINT IN IMAGE *SSSSS.SS'lP 
1467 PRINT 
01470 GO TO 8340 





1330 
1350 
1370 



13 
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Car buying- A . ;x ^ • INSCYCLE (Cont ' d . ) 

01500 IF B<«100 THEN P-38 ELSl 80 TO 1580 
01510 QO TO 1630 . - 

Ia •5^''**5 Wm P-35.6 ILSI 00 TO 1540 
01530 00 TO 1650 

01540 If B4-800 THDf P.i60 KLSI SO TO 1560 
01550 aO TO 1630 ^ ' 

1560 IF B<-360 THEN P« 8 8 ELSE 80 TO 1580 
01570 QO TO 1630 c 
156d IF B<-450 THENP«ll6 ELSE 80 TO 1600 
01590 60 TO 1630 

01600 B4-550 THEfil P»186 ELSE 80 TO 1680 
01610 QO TO 1630 
01680 P-I7a 

1630 PRINT "THE PACKAQE PLAN IS M 
1635 PRINT IN IMAGE *SSSSS.SS*tP 

1 637 PBI NT 
01640 QO TO 8340 

01650 IF B<-70 THEN P-40 ELSE QO TO 1670 
01660 GO TO 1800 

01670 IF B<-100 THEN P-48 ELSe)qO TO 1690 
01680 QO TO 1800 ^1 ' 

01690 iF B<-185 THEN P»70 ELSE QO TO 1710 
01700 QO TO 1800 

01710 IF B<«B00;THEN P-75 ELSE GO. TO 1730 
01780 QO TO 1800 

01730 IF B<«360 THEN P-110 ELSE Q(f TO 1750 
01740 60 TO 1800 

01750 IF B<»450 THEN P-145 ELSE 60 TO 1770 
01760 60 TO 1800 

01770 IF B<«550 THENJ>-160 ELSE GO TO 1790 
01780 GO TO 1800 
01790 P-815 

1800 PRINT 'THE PACKAGE PLAN IS M 
1805 PRINT IN INAOE •fSSSS.Si'tP 

1807 PRINT 

01810 GO TO 8340 

01880 IF C-18 QO TO 8180 ^ ^ 

01830, IF C-^QOTO 8010 

01640 IF, B<-70 THEN Po84 ELSE.QO TO 1860 
01850 60 TO 1^90 

01860 IF B4-100 THEN P«86 ELSE GO TO 1660 
01870 60 TO 1990 

1680 IF B<-185 THEN P«39 ELSE 00 TO 1900 
01890 60 TO 1990 

1900 IF B<»80O THEM P»48 ELSE 60 TO' 1980 
01910 GO TO 1990 

01980 IF B4«360^TNEN«P«63 ELSE 00 TO 1940 
01930 JSO TO 1990 

01940 IF B<«450 THEN P«$l ELSE 00 TO 1960 
01950 60 TO 1990 

01960 IF B<iiS50 THEN P^OO BLJ^i 00 TO 1960 

01970 00 TO 1990 

01960 P«189 « 

iC • xnc 
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*'" *■ 

■ 1990 PRINT -THE PACKAGE PLAN IS -I 

02000 QO TO 2340 . 

SsS^SoS?o"i?2o™™.''"^*P-««OT0.050 

02090 IF B^-360 THEN P-84 ELSE QO TO 2110 , 
02100 GO TO 2160 

02110 IF B<«450 THEN P- 108 ELSE QO TO 2130 
02120 GO TO 2160 

02130 IF B<-550 THEN P-120 ELSE. GOTO 2150 
02140 GO TO 2160 
02150 P-164 

2160 PRINT 'THE PACKAGE PLAN IS 
2165 PRINT IN IMAGE •SS$$^$.$$» IP 

2167 PRINT ~ 
02170 QO TO 2340 

02180 IF B<S70 THEN P-40 EL$E GO TO 2200 
02190 GO TO 2f330 

O22OO IF B<-100 THEN P-43 ELSE GO TO 2220 
02210 GO TO 2330 

02220 IF B<-125 THEN P-65 ELSE QO TO 2240. . r-^ 

02230 GO TO 2330 ' 
02240 IF B<-20p THEN P-70 ELSE QO TO 2260 
02250 QO TO 8330 u 

08260 IF B<-360 THEN P-IOS ELSE GO TO 2880 p 
02270 60 TO 2330 v 
02280 IF B5-45OTHEN P-135 ELSE GO TO 2300 
08800 GO TO 8330 

08300.1 F B<-550 THEN P-150 ELSE GO TO 2380 
08310 GOTO 8330 
083feo P"805 

2330 PRINT 'THE PACKAGE PLAN IS * I ' 
23^5 PRINT IN IMAGE •$$$$$.$$•!? 
2337 PRINT 

8340 IF ES«»NO* GO TO 8405 " 
8350 IP C«>6 THEN U"ll ELSE GO TO 2370 
08360 QO TO 8400 

2370 IF C«9 THEN U-14. ELSE GO TO 8390 
08380 GO TO 8400 

08390 U«I8 ^ 

8400 PRINT 'THE UNINSURED MOTORIST PRICE IS •! 

8401 PRINT IN IMAGE *SSSSS*SS*tU 
8408 QO(^TO 8480 

8406 0*0 . ' ^ 

08480 IP SS«*NO* GO TO 8640 
08430 IP C»18 ao TO 8S0O « . 

08440 IP C«9 00 TO 8^0 \ 
08490 IP B<»800 THEN 0«1r ELSE GO TO 8470 
0^^8460 00 TO 8900 ^ dfh ^ 

ERIC xxxl ' 
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08470 IF B<«>i60 THEN G» 1 1 ELSE GO TO S490 ' . 
02/lBO no TO $500 - - ' 
- 08490 G» l/» • \ 
f?5Q0 PRINT 'GUEST LIABILITY IS • I 

J>505 PRINT IN IMAGE ' $S*SJi'* $S» IG V 

2507 F^'hINT •> ^ " ; 

» afcIO TO 5650 . ' 

0252'0 'IF B-?-200 THEN G-10 ELSE GO TO 85A0 
02S3a GO TO ^57 0 ' 

0P540 IF 8<-450 THEN G-!iJ ELSE GO Td-WY^O v 
025^50 GO TO 2570 ' . ' • 

02560 G»19 • 
'2570 PHINT 'GUEST LIABILITY IS '/ 
;257 1 PHIAJT IN IMAGE ' $$$$S1 . ' t G 
257 2 'PRINT * ' . , - / * "\ , 

257 5 on JO a650 ' . ' ' / 

..,,2580 IF L)< = 250 THEN G-12 ELSE GO ,T0 2600 
^2590 (lO TO «r.30 
^'^2600 I^- FB< = 2r50>yEN G»18 ELSE GO TO 2620 
0 2610 GO Ta 2630 ' 

02620 G = '^/i . V 

r!630 PHINT 'GUEST LIABILITY IS '; 
>.631 PHINT IN IMAGE 'SJ$$$.J$'tG 

P602 PHINT . * 

26-35 GO 10 265Q '• 
09640 OO , ^ \ 

0 2650 X = Pm+G. J . 

P660 'IHE TOTAL COST OF" INSURANCE ON YOUH MOTORCYCLE ' 

2670 • FOR VjCjv' MONTHS IS '; 

2671 PRINT IN IMAq.E '$JS$$.$S'iX 

J?672' . - . ' 

!;673. • \ * ' " 

26H0 'VOULD ¥0U LIKE TO RUN THIS PROGRAM AGAIN'; 
02.690^ IMPUT 7.% . 
08700 IF 2$»'YES'Gb TO 120 

027 10 'GOOD-BYE' " 

y?99ENn 
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INSTABLE 



Cojrtputer Sheo:^ # 16 



The follovd.ng program, INSTABLE, was written by Steve Meer.' 



rtOlOp r)IlviL(3,8),t(/<,/»,7).J(4,^,7),S(/|Wj,7) 

oo'Mfy f-oH s'-iTo ' 

00l«0 KOH Sl« I 10 7 1^ 
0^.130 HKAI) L(b,Si') 
OOl/lO NK.X 1 b 1 
nOf «)0 NEXT *S 

OOl/SO );ATA I I , I 3, i 5r 17 , i 9 , 2li, i 5 " ' " 
00170 D^^TA 17<.}>0^ii3,e6»30*35. ' 

00 1 MO KOH s- ri n 3 . , ' 

I FOh h !■ 1 TO 3 ' ' ' ... 

iJOO FOH S'^»» I J 0 6 ' . , " , 

i; 10 HKAD C(S#Sl*Sii) ■ ■ , 

^t*o ivjKX'i by • « ^ 

MKX i b 1 - » " . 

«^0 NFXl b ♦ . 

^SO liATA ''.5, f, 8. 1 1, 13. 3, /J. 5, 7, 9, 11, 2/3, 5,7,^,6,8, 9, IP, 17,20 
tftO DATA 5^^, H, 11,1/,, 17,3,5,f,H, 11, U,8, 10, 12, 1 6, 82, 2f , f , H, 1 0 
270 OAIA I'l, 18,P2,i:»,6,8, 10, U, 18 

WHO FOK Sa I ro 3 . " . ' . ' 

J*yO FOK Sl = l >0 3 * . 

300 ,Fni( S2" 1 TO 3 " 
310 UFAlJ J(S,S1,S2) 

3t?0 NFXI b2 i 
3 30 NF.XT SI '* 
3^0 NFX I S 

3 DATA 1 1, 15, 18,21,2/1, 10, 1 1, 13, 16, 18,21 
360 DOIA 9,lO.,12,l4i,17,19,lV,20,23,27.32,3f 
370 UAIA 15, l7,H0,2/4,27,32, 1/1, 15/18,21,2f,,29 
3M0 hATA i^«.Pf-;30,36,/iti,/i8,20,28,2^,32,36,/i2 
390 OAIA. 18,20,8/1,28,3^,38 
/iOO FOFi b- 1 10 3 - 

'i;o KOH bl-1 TO 3 ^ - 

ii'.'i^ F(t|( b2« 1 ,T 0 6 . «■ 

hFAD b(S,'si,S2) . ^ 

'|/|0 tMJ< X 1 S-r" 

/ISO NFX T SI '\ 

'K'.O NFXT b / \ . ,V 

/jVO DATA U, If), 18,^^2,0,0, 12, 1/1, If, 19,0,0' 

^HO DATA 11,12,1/1,17,0,0,21,23*27,33,0,0 

A90 DATA 18,21,2/1,89,0,6,17, 18,81,26,0,0 

SOU DATA 28, 30, 36, /111, 0,0, 2-0, 80, 38, 3/1,0,0 * . 

SIO DATA 22,2/i,}?8,3A,0,0 

SHO MhlS HHOOHAM WILL DETEHMINE THK COST OF INSUHING AN AUTOMODILP • 

\'A0 'YOtl OWN OH WISH TO OWN. THF UOM^UT FFl' W I LL ASK YOU A • 
S/IO ♦NUMHKH OF OUFSTIOrtS. YOU WILL HAVE TO TYPE IN YOUfi ANSWERS.' 
r.'>0 •WhfcN ThF COMFUIEH FINISHES ASKING A QUESTION IT WILL l^filNT A« 
560 •QUESTION MAHK (7). '*TYFE IN YpUF ANSWER AFT EH THE QUESTION WARK.' 

S70 'AMKH YOU TYI^E IN YOUH AN$WEr< PUSH THE %C1UHN" KEY ON THF WLIiTYPE 




xjcxiil 



is 
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600 
MO 

r»/io 
ft so 

7 no 

7 10 



/ ITTT 
V U) 

/ /ID 

/ so 

/ fA\ 
7 7 O 
7 M ( I 
/ w(t 
Kill) 

M r">0 

h MO 
H /id 
M^SI) 
H60 
H7 0 
8H0 
R9(t 
H<> 1 
9 00 
'» I O 
9ViO 

9 SO 
9S1 



•AHF YOO 
■ I . ) 

:^ . ) 
3. ) 

' KM. INTO. • J 

I WHIT A 
IK Ax 1 (),, A-}^ 
(■fi I 0^jjf7 0 

iH A«ii ihy.H m-' 

IK A- 3 IHFN n*:-' 
H»tIM 
Phi NT 

PKIMI 
HmIMI 

•kaoh of 

1 . 



Phi M l 
PHI NT 

*4'4'4<*4'4>4'4'4i4<4r4i4'4>'fMAnilAL 

At ' 

SINHLF FEMALF STUDFNl • 
SINnLF MALE STUDENT' 
MARRIED STUDENT* MALE OB FEMALE* 
NUMBEh NEXT TO THE CATEnOHY THAI 



YOU' 



Oh A- 3 THEN 7 SO 

THFN B»l ELSE b-8 

SINGLE FEMALE STUnKNl 
SINGLE MALE STUDENT 
MAKHIED STUDENT' 



POINI DEMEPn S+ ♦♦**♦♦♦* ' 



THAFFIC VIOLATIONS IS WOhTH 6* 



HDV/ 



ft. ) 
7 . 1 

M^NY 



THE FOLLOW I NO 
POINTS.' 
DHUNK DRlVlNrt* 
NFOLIGENT VEH I CUL AR , HOM I C I DE ' 
ANY- FELONY' 

UNLAWFUL USE OF DPJVEH''S LICENSE' " 
DRAO RACING OR SPEED CONTESTS' 

HIT AND RUN» OR FAILURE TO STOP AT THE SCENE' 
OF AN ACCI DKNl ' 
RECKLESS DRIVING' 
ACCIDENT AT FAULT' 
TICKETS OK IHE ABOVE J Y PES 



PAST 3 YEARS? IF NONE ENTER 



THEN 920 



• I N THF 

INPUT K 

IK K<>A>lb( INT (E> ) 
9ftO ^«ft*E 
9fts'p|flNT 
9ftft PRINT 

<y7() • i«t)Ki|<1<iti4<4'<f4ri(ii(i4ii|i4i>K/j POINT 

EACH OF THE FOLLOWING 
DEMERIT POINTS.' 
1 . ) 
) 
) 
) 
) 



HAVE YOU HAD' 
A 7.ER0 (0) 



990 ' 

I 000 

1010 

I Oi^O 

1 030 

1 040 

1 OSO 

I OftO 

■I 070 

I 090 
« 



DEMfiRI T S4<'**>«'4'4<4<4<4<4i4<4<4<*4'4<' 

TRAFFIC VIOLATIONS IS WORTH 



•HOW 
•IXE 
INPUT 



2. 
3 
/J. 
fi , 
VlANY 
PAST 
E 



ILLEGAL PASSING' 

OPERATION WITHOUT DRIVER' 'S LICENSE' 
DRIVING TOO FASr FOR CONDITIONS' * 
FAILURE TO HAVE VEHICLE UNDER CONTROL' 
DRIVING ON WRONG SIDI«;„OF STREET' ' 
OF THE ABOVE HAVE YOU BEEN TICKETED FOR 
3 YRARS7 I F NONE ENTER A ZERO 4Q>) • ' ) 



IN 



0> 



13 



XXX ) V 
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lOU 
1 10 
1»0 
130 
litO 
1 frO 
170 
I HO 
IVO 
^00 
210 
'A'AO 

nop 

.r.d 
;v/ 0 

3H() 

39 0- 

/too 

410 
'130 
/ISO 

/JfiO 



IK F.<>lNT(ABb(E) ) IHRN \OfO 

PHINI 
PhlNl 

|l4'«***4.4r4'4'4'4.4'4<4'«R POINT DEMF^I T$ ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ • 
^ANY THAFFIC \2I0LA1I0N NOT ■ PREVI OUSLY MENTIONED IS • 
•VOHTH P UFMRHli POINTS' m 

'HOW MANY 2 POINT TICKETS HAVE YOU RECH^IVED IN THE PAST 
•YEAHS? IF NONE ENTE^ A ZEHO (Q)**; 

INPUT E ^ 

IF F<>lNT(-AbS(E) ) THEN 1 180 * 

PKINI 
hMlNI 
•HOW 01. V, 
1 . ) 

• ■ ) 



IS IHE CAN YOll WISH TO INSURE?' 
1 YKAH OH LESb' 
i^-3 YFAhS'l 
'i YEARS OR MOHE', 



•INPUT THE NUMBER WHICH DESCRIBES THE AGE OF YOUR CAR' 
•FROM IHK ApnVE TABLE'; ' 
INPOl r, 

IF (I- I 01, n-g OR n«3 THEN 13^0 - 
f^n in \ MM) 

J'RIMT . ' 

PRINI 

•ASH YOUi< INSIRUCTOR TO LOOK IN THE NAUA &00K AND FIND' 

•IHF INSKRANCK SYMBOL OF THE CAR YOU WISH TO INSURE.' 

•WHAl I S II ' » , 

INPUl H * 

FOK p-l TO 7 , * 

I F H=»P THEN 1 imO 

NKXl P 

no in'*'i;Vf>0 

PhlNl 

PR INI 

'IT IS RKUUIRED BY LAW THAT YOU CARRY 1^30/5' 



•I.IAhlLITY INSURANCE 
PJdNI 
PRINT 

•DO YOU 'want ll»/30 UNINSURED MOTORIST COVERAniT? 



\ 

IT IS OPTIONAL. 

<j70 'IT WILL. PROXFCT YOU AHAINOT OTHERS WHO DON"T HAVE INSURANCE,' 

AHM 'TYPE EITHER YES OR NO' . 

MO INPIU /. ? 1 

Sf»() IK 7.*-* YES' THEN U- I , ELSE U-O 

S/iO IK 7t-'YFS' OR /.f.-'NC THEN 1550 

S^S CO TO 1/lHO 

^'SO' PRINT . 

Sf.0 PRINT • 

S70 'UDEST ION #9' « 

. u 
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I 5B0 
I "SHI 
1 S90 
1 600 
I f 10 
I 

1 <^30 
I 6/4 1 

1 f^n:i 

1 ^/iS 

1 (ShO 
1 6S 1 
1 f.Si^ 

1 6s:< 

1 

1 66() 

1 ft7 0 
1 6H0 



MiO 
•II 



PEh FEHSON MEDICAL 
TYPE YES OB NO' I 



PAYMENTS CnVF.HAGE?* 



•NO' THEN 1620 



DEDUCTIBLE COMPREHENSI VE? • 
TYPE YE§ OR NO. ' 

.•NO^ THEN 16bO 



YOU WANT 5.500 
IS OPTIONAL! 
INPUT 

IP P«-«YES^ Oh Pf^ 

no TO 1580 
Vh l NT 
PRINT 

•DO YOU WAN! *F>0 
•IT IS OPTIONAL. 
INPUT X* ' 
IK X«»'YFS^OH X*' 

no 10 16/11 

IK U>-0 AND D<-6 THEN Tl-I ELSE IE D>6 AND D<«-18 THEN TI-8 
•no YOU WANI TlOO DEDUCTIBLE PHYSICAL DAMAGE COVEHAGE?^ 
•IMIS lb OPTIONAL. TYPE YES- OR- NO^ 

INPUT PT 

IK P^.-'YES^ OK pt.a'NO' THEN 1660 
TO 16SI 

1)> IH THEN* T 1-3 

D<-3 THEN T»l ELSE IF D>3 AND D <=5 THEN 1-2 
|j>6 AND D<-9 THEN 1-3 ELSE IE D>9 AND D<-|3 THEN T»/t 
1 6901 K D>13 AND D<-18 THEN T*5 ELSE IF D>18 ANDD<-23 THEN T-6 ' 
1700 IK D>S6 AND D<-33 THEN T-7 
17 10 H1"L(H* I ) 
17^0 Hf^«C(l 1 *G»H) 

17;M) IK M<>2 THEN h3-J(TUG*H) ELSE R3-S<T1»G»H) 
I7/I0' ♦♦♦♦♦♦♦ 

17/11 'EOh A •JBSr WHO HAS A TOTAL OF MDJ» POINTS* YOUR PREMIUM WILL B 

17S0 IK D<»33 THEN IROO 
17 60 PhlNl 

1770 •WE AhE UNAULE TO INSURE YOU Oh YOUR CAR DUE TO POINTS' 
I7K0 'ACOUIHED OVER THE LAST 3 YEARS.' ^ 
1790 Slop 

IHOO IF, HK-15 THEN V- 1 ELSE IF Hl>15 AND RK-30 THEN V-2 ELSE V-3 
,1810 PWfcNT 

IHJK) PRINT ■ I 

IH.U) PHINIINIMAGE 'YOUR MONTHLY LIABILITY RATE WILL BE J $f • » » H I 



GO 
I 

I K 
I h 



IH3 1 G-hl ' 

Ift/iO iK Xf.-'NO' IHEN 1860 ^ 
IBHO^YOUh MONIHLY JSU^DI- DUG! I BLE COMPREHENSI VE^ 

18SI PRINTINIMAGE • )^1 E WILL BE J$J JJfltJf JHf Jif »f f f f f $f f * « RS 



1H5)« <i-G-»-H« 

•|H6(> IK "HJoO THEN 18 65 , 

1861 'VK A*tE NOT ABLE TO INSURE YOUR CAR BKCAUSfc OE ITS ' 

1862 'TYPE AND pECAUSE OF YOUR DRIVING RECORD.' 
lfl65;IF Hi;-'NO' THKN 1890' 
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1870 •YOlJH MONTHLY « 1 00-DEUlJCTI BLE* ^ 
1875 PRINTINlVlAGE ' PHYSICAL DAMAGE FATE WILL BE $f $f f Ji^$J f 5 . • i f<3 

IH«0 G-fl + H3 

\b90 IF U»0 THRN 1980 

1900 -YOUh MONTHLY UNlNSUhED MOTORIST COVERAGE' 

• RATE WILL BE « . . t 

1910 G.G^O • ■ *^ 

1920 IK i-?«'NO' THEN 1950 

1930 'YOUh MONTHLY MEDICAL PAYMENTS COVEhAGE' 

193SPHlNTINIMAfiK • RATE WILL BE f J f f J f J$ f t J S « Jf f J ? f ?. J I $$ I j f y . . , ^ 

1940 G-G+V 

19/jS HhiNT , 

1950 PniNTINlMARF. 'YOUH TOTAL MONTHLY PAYMENT WILL BE f f 1$ JT.$$J ? t . • t G 
1960 PRINT INIMAGK 'YOUR TOTAL YEARLY PAYMENT WILL BE Iiyj TJ J$f $. • | G* Ig 

lOOOOEND 



• \ 
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